program complex
	use IFPORT
	implicit none
	complex*8 :: a1, a2, a3 
	real*8 :: b1, b2, b3, b4, b5, b6
	integer*8:: i, j, N=100000000

	double precision:: t1, t2
	a1 = (2.323452d0, 213422.1234d0)
	a2 = (223.2134d0, 21321.1221213d0)
	b1 = real(a1)
	b2 = aimag(a1)
	b3 = real(a2)
	b4 = aimag(a2)
	call cpu_time(t1)
	do i = 1, N
		a3 = a1 * a2 * a1
	end do
	call cpu_time(t2)
	print *, t2-t1
	call cpu_time(t1)
	do i = 1, N
		b5 = b1*b3 - b2*b4
		b6 = b1*b4 + b2*b3
		b5 = b5*b1 - b6*b2
		b6 = b5*b2 + b6*b1
	end do
	call cpu_time(t2)
	print *, t2-t1
	stop
end program

